Headbone Interactive/Headbone_Interactive_CD-ROM_Sampler_1995.iso/pc/demos/pants/main.dxr/00162_set up go mode.ls

Text File | 1995-09-15 | 451 b | 14 lines

on exitFrame
  global gvCurLetter, gvCurNumber, gvBackgroundSprite, gvTrack
  if soundBusy(1) then
    if gvTrack = 2 then
      set vColorCast to gvCurLetter & gvCurNumber & "color"
      if the castNum of sprite gvBackgroundSprite <> the number of cast vColorCast then
        set the castNum of sprite gvBackgroundSprite to the number of cast vColorCast
        puppetTransition(23, 1, 20, 1)
      end if
    end if
    go(the frame)
  end if
end